PROGRAM suppressionClient;

USES Types;









/////////
	PROCEDURE suppressionClient(ID_Client:INTEGER; VAR collectionclient:TTabClient; VAR tabcompte:TTabcompte); 

		VAR
			nbCompte:INTEGER;
			suppression:BOOLEAN;
			choix:STRING;
			i:INTEGER;
			j:INTEGER;
		BEGIN
		tabcompte.nbcompte:=2;
		
		
		suppression:=FALSE;
		j:=0;
		WHILE(suppression=FALSE) DO 
			BEGIN
				//nbCompte:= afficheComptes(ID_Client, tabcompte); // FONCTION
				nbCompte:=2;
				IF(nbCompte>=1) THEN
					BEGIN
						WRITELN('Vous devez cloturer les comptes pour supprimer le client');
						WRITELN('Souhaitez-vous cloturer des comptes ? O/N');
						READ(choix);
						
						IF(choix='O') THEN
							BEGIN
								WHILE(j<=tabcompte.nbcompte) DO
									BEGIN
										IF(ID_Client = tabcompte.compteclient[j].IDclient) THEN
											BEGIN
												//Cloture(ID_Client,tabcompte); //FONCTION
											END;
										j:=j+1;
									END;
							END
						ELSE
							BEGIN
							suppression:=TRUE;
							END;
					END
				ELSE
					BEGIN
						WRITELN('Confirmez la suppression du client ? O/N');
						READ(choix);
						
						IF(choix='O') THEN
							BEGIN
								//i:=indiceClient(ID_Client,collectionclient); //FONCTION
								i:=1;
								WHILE(i<=collectionclient.nbelement) DO
									BEGIN
										collectionclient.tabclient[i]:=collectionclient.tabclient[i+1];
										i:=i+1;
									END;
							END
						ELSE
							BEGIN
								suppression:=TRUE;
							END;
							
					END;
			END;
		
		END;
BEGIN
	
	
END.

